/* rqlu014.p - GRS Requisition Lines Lookup UI                              */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                      */
/* All rights reserved worldwide.  This is an unpublished work.             */
/* $Revision: 1.4 $    */
/*V8:ConvertMode=NoConvert                                                  */
/********************************** History *********************************
 * Revision:     BY: Jean Miller          DATE: 03/04/02  ECO: *N1BS*
 * $Revision: 1.4 $    BY: Katie Hilbert        DATE: 05/09/02  ECO: *P06B*
 ****************************************************************************/

{mfdeclre.i}

&SCOPED-DEFINE BR-TITLE "GRS Requisition Lines"

&SCOPED-DEFINE BR-NAME rq014
&SCOPED-DEFINE Q-DRAG-BACK-COL 1

&SCOPED-DEFINE Q-FIRST-TABLE rqd_det
&SCOPED-DEFINE Q-FIRST-FIELD-LIST (rqd_line rqd_site rqd_part rqd_vend rqd_req_qty rqd_um rqd_pur_cost)
&SCOPED-DEFINE Q-NUM-TABLES 1

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-1 b-1.rqd_line
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-1 rqd_det.rqd_line
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-1 tt-rqd_line
&SCOPED-DEFINE BR-K-COL-LABEL-1 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-1 "Line"
&SCOPED-DEFINE BR-FIELD-TYPE-1 integer
&SCOPED-DEFINE BR-FIELD-FRMT-1 FORMAT ">>>"
&SCOPED-DEFINE BR-FIELD-WIDTH-1 5

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-2 b-1.rqd_site
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-2 rqd_det.rqd_site
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-2 tt-rqd_site
&SCOPED-DEFINE BR-K-COL-LABEL-2 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-2 "Site"
&SCOPED-DEFINE BR-FIELD-TYPE-2 character
&SCOPED-DEFINE BR-FIELD-FRMT-2 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-2 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-3 b-1.rqd_part
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-3 rqd_det.rqd_part
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-3 tt-rqd_part
&SCOPED-DEFINE BR-K-COL-LABEL-3 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-3 "Item Number"
&SCOPED-DEFINE BR-FIELD-TYPE-3 character
&SCOPED-DEFINE BR-FIELD-FRMT-3 FORMAT "x(18)"
&SCOPED-DEFINE BR-FIELD-WIDTH-3 19

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-4 b-1.rqd_vend
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-4 rqd_det.rqd_vend
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-4 tt-rqd_vend
&SCOPED-DEFINE BR-K-COL-LABEL-4 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-4 "Supplier"
&SCOPED-DEFINE BR-FIELD-TYPE-4 character
&SCOPED-DEFINE BR-FIELD-FRMT-4 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-4 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-5 b-1.rqd_req_qty
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-5 rqd_det.rqd_req_qty
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-5 tt-rqd_req_qty
&SCOPED-DEFINE BR-K-COL-LABEL-5 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-5 "Quantity Requested"
&SCOPED-DEFINE BR-FIELD-TYPE-5 decimal
&SCOPED-DEFINE BR-FIELD-FRMT-5 FORMAT ">,>>>,>>9.9<<<<<<<<"
&SCOPED-DEFINE BR-FIELD-WIDTH-5 20

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-6 b-1.rqd_um
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-6 rqd_det.rqd_um
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-6 tt-rqd_um
&SCOPED-DEFINE BR-K-COL-LABEL-6 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-6 "UM"
&SCOPED-DEFINE BR-FIELD-TYPE-6 character
&SCOPED-DEFINE BR-FIELD-FRMT-6 FORMAT "x(2)"
&SCOPED-DEFINE BR-FIELD-WIDTH-6 3

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-7 b-1.rqd_pur_cost
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-7 rqd_det.rqd_pur_cost
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-7 tt-rqd_pur_cost
&SCOPED-DEFINE BR-K-COL-LABEL-7 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-7 "Unit Cost"
&SCOPED-DEFINE BR-FIELD-TYPE-7 decimal
&SCOPED-DEFINE BR-FIELD-FRMT-7 FORMAT ">>>,>>>,>>9.99<<<"
&SCOPED-DEFINE BR-FIELD-WIDTH-7 18

&SCOPED-DEFINE Q-NUM-FILT-VALS 7
&SCOPED-DEFINE BR-MAX-FIELD-WIDTH 20
&SCOPED-DEFINE BR-BROWSE-WIDTH 83
&SCOPED-DEFINE WHERE-CLAUSE rqd_nbr = c-brparm1
&SCOPED-DEFINE BR-INDEXED-FIELDS 1,2,3,4

{wbbr01.i &string-4 = 'LOOKUP'}
if c-application-mode <> 'WEB' then do:
   {lookup.i}
end.
